home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / oops_js / oopsmsg2.mod < prev    next >
Encoding:
Modula Implementation  |  1990-02-02  |  3.3 KB  |  70 lines
  1. IMPLEMENTATION MODULE oopsmsg2; (* Ken Badertscher (KBAD) 2/23/87 *)
  2.  
  3. FROM oopsmsg1 IMPORT ErrMsgs;
  4.  
  5. PROCEDURE AssignErr2(VAR errs : ErrMsgs);
  6. BEGIN
  7. errs[67] := 
  8.   '(* ^^^parameters with equal types in I have different types in D *)';
  9. errs[68] := '(* ^^^mismatch between VAR specifications *)';
  10. errs[69] := '(* ^^^mismatch between type specifications *)';
  11. errs[70] := '(* ^^^more parameters in D than in I *)';
  12. errs[71] := '(* ^^^mismatch between result type specifications *)';
  13. errs[72] := '(* ^^^function in D, pure procedure in I *)';
  14. errs[73] := '(* ^^^procedure in D has parameters, but not in I *)';
  15. errs[74] := '(* ^^^code procedure cannot be declared in definition module *)';
  16. errs[75] := '(* ^^^illegal type of control variable in FOR statement *)';
  17. errs[76] := '(* ^^^procedure call of a function *)';
  18. errs[77] := '(* ^^^identifiers in heading and at end do not match *)';
  19. errs[78] := 
  20.   '(* ^^^redefinition of a type that is declared in definition part *)';
  21. errs[79] := '(* ^^^imported module not found *)';
  22. errs[80] := '(* ^^^unsatisfied export list entry *)';
  23. errs[81] := '(* ^^^illegal type of procedure result *)';
  24. errs[82] := '(* ^^^illegal base type of subrange *)';
  25. errs[83] := '(* ^^^illegal type of case expression *)';
  26. errs[84] := '(* ^^^writing of symbol file failed *)';
  27. errs[85] := '(* ^^^keys of imported symbol files do not match *)';
  28. errs[86] := '(* ^^^error in format of symbol file *)';
  29. errs[88] := '(* ^^^symbol file not successfully opened *)';
  30. errs[89] := 
  31.   '(* ^^^procedure declared in definition module, but not in implementation *)';
  32. errs[90] := '(* ^^^in {a..b}, if a is a constant, b must also be a constant *)';
  33. errs[91] := '(* ^^^code procedure can have at most 8 bytes of code *)';
  34. errs[92] := '(* ^^^too many cases *)';
  35. errs[93] := '(* ^^^too many exit statements *)';
  36. errs[94] := '(* ^^^index type of array must be a subrange *)';
  37. errs[95] := '(* ^^^subrange bound must be less than 2^15 *)';
  38. errs[96] := '(* ^^^too many global modules *)';
  39. errs[97] := '(* ^^^too many procedure in definition module *)';
  40. errs[98] := '(* ^^^too many structure elements in definition module *)';
  41. errs[100] := '(* ^^^multiple definition within the same scope *)';
  42. errs[101] := '(* ^^^illegal use of type *)';
  43. errs[102] := '(* ^^^illegal use of procedure *)';
  44. errs[103] := '(* ^^^illegal use of constant *)';
  45. errs[104] := '(* ^^^illegal use of type *)';
  46. errs[105] := '(* ^^^illegal use of procedure *)';
  47. errs[106] := '(* ^^^illegal use of expression *)';
  48. errs[107] := '(* ^^^illegal use of module *)';
  49. errs[108] := '(* ^^^constant index out of range *)';
  50. errs[109] := 
  51.   '(* ^^^indexed variable is not an array, or the index has the wrong type *)';
  52. errs[110] := '(* ^^^record selector is not a field identifier *)';
  53. errs[111] := '(* ^^^dereferenced variable is not a pointer *)';
  54. errs[112] := '(* ^^^operand type incompatible with sign inversion *)';
  55. errs[113] := '(* ^^^operand type incompatible with NOT *)';
  56. errs[114] := '(* ^^^x IN y: type(x) # basetype(y) *)';
  57. errs[115] := 
  58.   '(* ^^^type of x cannot be the basetype of a set, or y is not a set *)';
  59. errs[116] := 
  60.   '(* ^^^{a..b}: type of either a or b # the base type of the set *)';
  61. errs[117] := '(* ^^^incompatible operand types *)';
  62. errs[118] := '(* ^^^operand type incompatible with * *)';
  63.  
  64. END AssignErr2;
  65.  
  66. END oopsmsg2.
  67.  
  68.  
  69.  
  70.